(require 'asdf)

(setf asdf:*central-registry*
  ;; Default directories, usually just the ``current directory''
  '(*default-pathname-defaults*

  ;; Additional places where ASDF can find
  ;; system definition files
  #p"/home/simon/euler-in-lisp/poc/hello-package/"
  #p"/home/simon/euler-in-lisp/"
  #p"/home/simon/euler-in-lisp/common/"))

(asdf:oos 'asdf:load-op :hello-package-sys)
(asdf:oos 'asdf:load-op :common-util-sys)
(asdf:oos 'asdf:load-op :euler-in-lisp-sys)

(defun hello-sbcl ()
  (format t "~a~%" "=== Hello SBCL,i am user init file <~/.sbcl> ==="))
;(hello-sbcl)

